home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
demo
/
pwrtcp11.exe
/
CONNECT2.FR_
/
CONNECT2.bin
Wrap
Text File
|
1994-09-01
|
2KB
|
83 lines
VERSION 2.00
Begin Form frmConnect
BackColor = &H8000000F&
BorderStyle = 3 'Fixed Double
Caption = "Connect"
ClientHeight = 1920
ClientLeft = 2955
ClientTop = 3180
ClientWidth = 3240
ClipControls = 0 'False
Height = 2325
Left = 2895
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1920
ScaleWidth = 3240
Top = 2835
Width = 3360
Begin TextBox txtPort
Height = 300
Left = 1200
TabIndex = 5
Text = "1025"
Top = 600
Width = 1455
End
Begin TextBox txtHostName
Height = 300
Left = 1200
TabIndex = 1
Top = 240
Width = 1455
End
Begin CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 1800
TabIndex = 4
Top = 1200
Width = 1215
End
Begin CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 240
TabIndex = 3
Top = 1200
Width = 1215
End
Begin Label Label2
BackColor = &H8000000F&
Caption = "Port:"
Height = 495
Left = 120
TabIndex = 2
Top = 600
Width = 1215
End
Begin Label Label1
BackColor = &H8000000F&
Caption = "Host Name:"
Height = 495
Left = 120
TabIndex = 0
Top = 240
Width = 1215
End
End
Sub cmdCancel_Click ()
Me.Hide
Me.Tag = False
End Sub
Sub cmdOK_Click ()
Me.Hide
Me.Tag = True ' Let the calling procedure know
' that this button was clicked
End Sub